%@LANGUAGE="VBSCRIPT"%> <% Dim Rec_article Dim Rec_article_cmd Dim Rec_article_numRows Set Rec_article_cmd = Server.CreateObject ("ADODB.Command") Rec_article_cmd.ActiveConnection = MM_trinity_con_STRING Rec_article_cmd.CommandText = "SELECT * FROM articles" Rec_article_cmd.Prepared = true Set Rec_article = Rec_article_cmd.Execute Rec_article_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Rec_article_numRows = Rec_article_numRows + Repeat1__numRows %>
|
---|